home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / manual maker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  45 lines
  1. 100 a$="":ifa=0thena=1:load"input any.o",8,1
  2. 110 gosub200:hd$="":print"[147][159]"chr$(142)
  3. 120 c$="010115151512121206
  4. 130 rv[178]0:bx[178]1:ex[178]39:by[178]0:bd[178]21:bc[178]6:[141]230:[151]53281,0:[151]53280,0
  5. 140 [129]i[178]1[164]18[169]2:[141]350:bc[178][197]([202](c$,i,2)):[141]230:[130]
  6. 150 ln$[178]"                                      ":x$[178][199](13):cu[178]3
  7. 160 w$[178]"":ww$[178]"                  "
  8. 170 wb$[178]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd":w$[178]w$[170]ww$[170]wb$[170]ww$[170]wb$[170]ww$[170]wb$[170]"ononon"
  9. 180 [137]360
  10. 190 [143] generate variables
  11. 200 ba$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  12. 210 a$[178]"(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd":[129]i[178]1[164]6:bd$[178]bd$[170]a$:[130]:[142]
  13. 220 [143] print box
  14. 230 oc[178][194](646):[151]646,bc:rv$[178]"":[139]rv[167]rv$[178]""
  15. 240 [151]211,bx:[151]214,by:[158]58732:[153]rv$"(NULL)"[200](ba$,ex[171]bx[171]2)"right$cmd";
  16. 250 [153]rv$[200](bd$,bd[172]3):[153]rv$[166]bx)"onmid$"[200](ba$,ex[171]bx[171]2)"(NULL)"
  17. 260 [151]211,bx:[151]214,by[170]1:[158]58732:[153]rv$[200](bd$,bd[172]3)"":[151]646,oc
  18. 270 rv[178]0:[142]
  19. 280 [143] print message
  20. 290 l[178]1:[159]2,8,2,"basic 4.docs,s,r"
  21. 300 [139]st[178]0[167][158]828,2,40:[139]a$[178]""[167]a$[178]" "
  22. 310 [153]a$:[137]300
  23. 320 [143] make box grow
  24. 330 bx[178]bx[171]1:by[178]by[171]1:ex[178]ex[170]1:bd[178]bd[170]2:[142]
  25. 340 [143] make box shrink
  26. 350 bx[178]bx[170]1:by[178]by[170]1:ex[178]ex[171]1:bd[178]bd[171]2:[142]
  27. 360 [153]w$"sysspace:openprint manual"wb$"sysq:openquit to main prg"
  28. 370 [161]a$:[139]a$[179][177]"q"[175]a$[179][177]" "[167]370
  29. 380 [139]a$[178]"q"[167]470
  30. 390 [153]"open"w$" set printersys/openpaper"wb$"   press sysreturn"
  31. 400 [161]a$:[139]a$[179][177][199](13)[167]400
  32. 410 [159]4,4,7:[160]4:[139]st[167][160]4:[137]390
  33. 420 [159]2,8,2,"basic4.docs,s,r":[159]4,4,7:c[178]0:bg[178]0:[132]2,aa$
  34. 430 [158]828,2,80:c[178]c[170]1:i[178]st:[139]c[177]15[167]c[178]1
  35. 435 [139][201](a$,2)[178]"1z"[167]a$[178]""
  36. 440 [151]646,c:[153]""w$" any key pauses ":[152]4,[166]5)a$
  37. 445 [146]197,64:[139][194](653)[167]445
  38. 450 [139]i[178]0[167]430
  39. 460 [160]2:[160]4:[137]130
  40. 470 [159]15,8,15,"r0:basic 4 boot=basic 4 boot":[132]15,er:[160]15
  41. 480 [139] er[179][177]63 [167] [153]"load":[128]
  42. 490 [153]"loadstopload"[199](34)"basic 4 boot"[199](34)",8"
  43. 500 [151]631,13:[151]632,82:[151]633,213:[151]634,13:[151]198,4:[128]
  44. 10000 [159]15,8,15,"s0:manual maker":[148]"manual maker",8:[128]
  45.